home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
001a
/
ezzcomm.zip
/
TGARD.T
< prev
next >
Wrap
Text File
|
1991-02-16
|
1KB
|
28 lines
: EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
: Licensed for use at your own risk without fee. Altered versions,
: when distributed, must be clearly marked as altered and accompanied
: by the originals.
:
: Entry in %ZCUSER.IDS for Teleguard: remote,password,userid
: remote: argument of "call" command
: password: signon password (required)
: first: first name. Optional: assumed equal to %n1
: last: last name. Optional: assumed equal to %n2
ena -K!Z p?0 findq "\n%remote," %lib/%ZCUSER.ids
if ? split z0 , , , "";if %z1 goto haveuser
pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
ife r nolog close;return
haveuser:
pat 23cp$ "*HIT RETURN*" \r
pat 24cp "rz\r**\030" "@rz -p"
if !%z2 sets z2 "%n1 %n2"
pat
pat 0c$ " Ansi? Y/N" "n"
pat 1c$ "Logon : " "%z2\r"
pat 2c "User password : " "%z1\r"
pat 3c$ "###-###-" "%n5\r"
pat 4i "\nWelcome to "
wait -f30;if n bye;ife r nolog close;return
pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
ife r nolog close;return